Precision Software Appli…tions Silver Collection 3/Precision Software Applications Silver Collection Volume Three (PSM) (1993).iso/music2/mepody.exe/PLARRAY.PAS

Pascal/Delphi Source File | 1991-04-13 | 256b | 16 lines

{ Procedure PlayArray plays melody from constant array.
  MAX is the size of the array.}

procedure PlayArray;
var
  i : integer;
begin
  for i := 1 to MAX do
  begin
    sound(melody[i,1]);
    delay(melody[i,2]);
    nosound;
  end;
end;